home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / misc / wclass20.zip / PASCAL1.SCT < prev    next >
Text File  |  1995-01-16  |  3KB  |  91 lines
  1.  
  2. unit CLASS_FILENAME;
  3.  
  4. interface
  5.  
  6. [NO_RETURN NO_REPEAT uses INCLUDE_FILE ,DELETE_LAST_SYMBOL]
  7.  
  8. type
  9. CLASS = object [(BASE_CLASS)]
  10.  
  11. [ ATTRIBUTE_NAME : ATTRIBUTE_TYPE ; ]
  12. [ ASSOCIATION_ONE_NAME : ASSOCIATION_ONE_CLASS ; ]
  13. [ AGGREGATION_ONE_NAME : AGGREGATION_ONE_CLASS ; ]
  14. [ ASSOCIATION_MANY_NAME : array LITERAL_SYMBOL[1..10 LITERAL_SYMBOL] of ASSOCIATION_MANY_CLASS ; ]
  15. [ AGGREGATION_MANY_NAME : array LITERAL_SYMBOL[1..10 LITERAL_SYMBOL] of AGGREGATION_MANY_CLASS ; ]
  16.  
  17.             {Update to initialize ancestor fields.}
  18.   constructor DefaultInit;
  19.  
  20.             {Update to initialize ancestor fields.}
  21.   constructor Init ( [a$ATTRIBUTE_NAME : ATTRIBUTE_TYPE DELETE_LAST_SYMBOL;] NO_RETURN);
  22.  
  23.   constructor Copy (var A_$CLASS : CLASS );
  24.  
  25.   destructor Done; virtual;
  26.  
  27. [ function Get$ATTRIBUTE_NAME : ATTRIBUTE_TYPE; ]{Accessor Get Function }
  28.  
  29. [  procedure Set$ATTRIBUTE_NAME ( a$ATTRIBUTE_NAME : ATTRIBUTE_TYPE ); ]{Accessor Set Procedure }
  30.  
  31. [                       { create function with return if required. }
  32.   procedure OPERATION_NAME PASCAL_OPERATION_PARAMETERS_WITH_VAR ; PASCAL_OPERATION_VIRTUAL  
  33. ]
  34.   
  35. end;
  36.  
  37. implementation
  38.  
  39. {-----------------------------------------------------------------------------------------------}
  40.             {Update to initialize ancestor fields.}
  41. constructor CLASS$.DefaultInit;
  42. begin
  43.   [ATTRIBUTE_NAME := ATTRIBUTE_INITIAL_VALUE; ]
  44. end; 
  45.  
  46. {-----------------------------------------------------------------------------------------------}
  47.             {Update to initialize ancestor fields.}
  48. constructor CLASS$.Init ( [a$ATTRIBUTE_NAME : ATTRIBUTE_TYPE  DELETE_LAST_SYMBOL;] NO_RETURN);
  49. begin
  50.   [ATTRIBUTE_NAME := a$ATTRIBUTE_NAME;]
  51. end;
  52.  
  53. {-----------------------------------------------------------------------------------------------}
  54. constructor CLASS$.Copy (var A_$CLASS : CLASS );
  55. begin
  56.   Self := A_$CLASS;
  57. end;
  58. {-----------------------------------------------------------------------------------------------}
  59.             {Update as required.}
  60. destructor CLASS$.Done;
  61. begin
  62. end;
  63.  
  64. [{-----------------------------------------------------------------------------------------------}
  65.             {Accessor Get Function }
  66. function CLASS.Get$ATTRIBUTE_NAME : ATTRIBUTE_TYPE;
  67. begin
  68.   Get$ATTRIBUTE_NAME := ATTRIBUTE_NAME;
  69. end;
  70. ]
  71. [{-----------------------------------------------------------------------------------------------}
  72.             {Accessor Set Procedure }
  73. procedure CLASS.Set$ATTRIBUTE_NAME ( a$ATTRIBUTE_NAME : ATTRIBUTE_TYPE ); 
  74. begin
  75.   ATTRIBUTE_NAME := a$ATTRIBUTE_NAME;
  76. end; 
  77. ]  
  78. [{-----------------------------------------------------------------------------------------------}
  79.             { create function with return if required.}
  80. procedure CLASS.OPERATION_NAME PASCAL_OPERATION_PARAMETERS_WITH_VAR ; 
  81. begin
  82. end;    
  83. ]
  84.  
  85. end.
  86.  
  87.  
  88.  
  89.  
  90.  
  91.